home *** CD-ROM | disk | FTP | other *** search
- ECHO OFF
- GOTO START
-
- E 2CC3
- 00 00 00 00
- W
- Q
-
- :START
- IF EXIST %1 GOTO GETDEBUG
- ECHO Error -- You must provide the name of a .COM file generated by Turbo Pascal!
- ECHO (example: NODOS MYPROG.COM)
- GOTO END
-
- :GETDEBUG
- IF EXIST DEBUG.COM GOTO GETNODOS
- ECHO Error -- You must have a copy of DEBUG.COM on the default drive!
- GOTO END
-
- :GETNODOS
- IF EXIST NODOS.BAT GOTO FIXIT
- ECHO Error -- NODOS.BAT must be on the default drive!
- GOTO END
-
- :FIXIT
- DEBUG %1<NODOS.BAT
- ECHO *** Success ***
- ECHO %1 will not require you to have COMMAND.COM in the boot drive anymore!
- :END
-